home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Ken Long / Polygondrian-c / Extra demos / Spines how < prev    next >
Encoding:
Text File  |  1994-12-04  |  511 b   |  20 lines  |  [TEXT/KAHL]
  1.     poly = OpenPoly ();
  2.  
  3.     start_H = screenBits.bounds.right / 2;
  4.     start_V = screenBits.bounds.bottom;
  5.     
  6.     MoveTo (start_H, start_V);    //• From here.
  7.  
  8.     //• To anywhere across screen width...
  9.     LineTo (The_Ramdominator (0,screenBits.bounds.right),
  10.     //• and anywhere above center.
  11.             The_Ramdominator (0, screenBits.bounds.bottom / 2));
  12.  
  13.     //• To bottom center plus 50 and bottom only.
  14.     LineTo (screenBits.bounds.right / 2 + 50, screenBits.bounds.bottom);
  15.  
  16.     //• And back home.
  17.     LineTo (start_H, start_V);
  18.  
  19.     ClosePoly ();
  20.